home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / tex / devnag.zip / DEFS.MF < prev    next >
Text File  |  1991-05-09  |  3KB  |  100 lines
  1. %    DEFS.MF
  2. %    Header file with Metafont-parameters for the Devanagari fonts
  3. % 
  4. %    Copyright (C) 1991  University of Groningen, The Netherlands
  5. %
  6. %    Author:   Frans J. Velthuis
  7. %    Internet: velthuis@rc.rug.nl
  8. %    Bitnet:   velthuis@hgrrug5
  9. %
  10. %    This program is free software; you can redistribute it and/or modify
  11. %    it under the terms of the GNU General Public License as published by
  12. %    the Free Software Foundation; either version 1, or (at your option)
  13. %    any later version.
  14. %
  15. %    This program is distributed in the hope that it will be useful,
  16. %    but WITHOUT ANY WARRANTY; without even the implied warranty of
  17. %    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18. %    GNU General Public License for more details.
  19. %
  20. %    You should have received a copy of the GNU General Public License
  21. %    along with this program; if not, write to the Free Software
  22. %    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  23. % 
  24.   penwd# :=thick# * cosd(rot-90);
  25.   usthick# := thick#;
  26.   mb# := .2ht#;
  27.   define_pixels(penwd,usthick,mb);
  28.   define_blacker_pixels(thin,thick,subthick);
  29.   thin := max(thin,1); subthick := max(subthick,1);
  30.   smoothing := 0;
  31.   pickup pencircle xscaled thick yscaled thin rotated rot;
  32.   scpenwd := pen_rt - pen_lft;
  33.   frame_pen := savepen;
  34.   pickup pencircle xscaled subthick yscaled thin rotated rot;
  35.   sub_pen := savepen;
  36.   picture v[];
  37.   numeric vbar[];
  38.   extra_endchar := extra_endchar & "chardp := chardp + mb#;" ;
  39.  
  40.   def tframe =
  41.   pickup frame_pen;
  42.   z1=(w-brm-.7rm,h); z2=(w,h);
  43.   x3=good.x w-brm; y3=h; z4=(x3,0);
  44.   draw z1--z2;
  45.   draw z3--z4;
  46.   enddef;
  47.  
  48.   def aframe =
  49.   pickup frame_pen;
  50.   z1=(w-rm-brm,h); z2=(w,h);
  51.   x3=good.x w-brm; y3=h; z4=(x3,0);
  52.   draw z1--z2;
  53.   draw z3--z4;
  54.   enddef;
  55.  
  56.   def endsav =
  57.   vbar[charcode]=x3;
  58.   cullit;
  59.   v[charcode]=currentpicture;
  60.   endchar;
  61.   enddef;
  62.  
  63.   def cutoff(expr t) =
  64.   x23 = vbar[t];
  65.   fill (-penwd,-d-mb-penwd)--(x23-.6scpenwd,-d-mb-penwd)--(x23-.6scpenwd,
  66.   h+penwd)--(-penwd,h+penwd)--cycle withweight 2;
  67.   cull currentpicture keeping(2,2);
  68.   addto currentpicture also v[t];
  69.   cull currentpicture keeping (2,2);
  70.   w := floor(x23-.6scpenwd);
  71.   enddef;
  72.  
  73.   def addpic(expr t) =
  74.   addto currentpicture also v[t];
  75.   enddef;
  76.  
  77.   def frame =
  78.   pickup frame_pen;
  79.   z1 = (0,ht); z2 = (w,ht);
  80.   x3 = good.x w-brm; y3 = ht; z4 = (x3,0);
  81.   draw z1--z2; draw z3--z4;
  82.   enddef;
  83.  
  84.   def sqdot(expr p)=
  85.   x25:=floor(xpart p)+.5;
  86.   y25:=floor(ypart p)+.5;
  87.   dwd:=ceiling(thick);
  88.   if not odd dwd: dwd:= dwd+1; fi
  89.   fill unitsquare shifted -(.5,.5) rotated 45 scaled (.5sqrt2 * dwd)
  90.   shifted z25;
  91.   enddef;
  92.  
  93.   def low_n(expr nw,nh)=
  94.       y38 := good.y nh; x38 := x3;
  95.         y39 := y38 - .6penwd; x39 := nw;
  96.         filldraw fullcircle scaled 1.2penwd shifted(x39,y39);
  97.         z40 = (x39,y38);
  98.         draw z38--z40;
  99.   enddef;
  100.